home *** CD-ROM | disk | FTP | other *** search
- .KEY PROJECT/A
-
- ; Set the default project name.
- ; Results in auto-selection of this package at re-login
- ; Argument is a pathname relative to $WORK
-
- FailAt 15
- CD $WORK
- If Not Exists <PROJECT>
- Ask "Not existing project <PROJECT>. Shall I create it? [N]"
- If WARN
- Echo "Attempting to create <PROJECT> in $WORK"
- MakeDir <PROJECT>
- If Error
- Echo "Sorry --- Failed. Task too complex?"
- Skip Exit
- EndIf
- Else
- Echo "Exiting Prj without any work done"
- Skip Exit
- EndIf
- EndIf
- CD <PROJECT>
- CD >env:TEMPORARYFORPRJ
- Echo >ENVARC:PROJECT_$PACKAGE "SET WF=$TEMPORARYFORPRJ"
- If Exists .login
- Execute .login
- EndIf
- Echo "Default project <PROJECT> set for package " NOLINE
- Get PACKAGE
-
- Lab Exit
-